home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_10_1986_Transactor_Publishing.d64 / cbm to pal.bas (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  212b  |  10 lines
  1. 1 open1,8,2,"0:seqfile":l=1000
  2. 2 print"[147]":fori=0to8:printl;:l=l+2
  3. 3 get#1,a$:s=-(st=0):ifs=0goto5
  4. 4 ifa$<>chr$(13)thenprinta$;:goto3
  5. 5 print:nexti
  6. 6 ifsthenprint"l=";l;":poke152,1:goto2"
  7. 7 fori=631to639+s:pokei,13:next
  8. 8 poke198,9+s:close1-s:print"";:end
  9. 9 :
  10.